МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Інститут економіки і менеджменту
Розрахункова робота з інформатики
по темі «Pascal»
Варіант № 24
Задача №1(5) Цикли. Таблиця мір.
Протабулювати таблицю відповідностей між мірами. Початкове значення міри, крок, зміни цього значення та кількість рядків у таблиці задати самостійно у режимі діалогу. Оформити таблицю якнайкраще, використовуючи формати виведення.
1 дюйм=2,54 см=12 ліній.
Program zav5;
Uses crt;
const line='+++--------++++-----------+++';
Var dujm,san,krok,lin:real; i,kil:integer;
begin clrscr;
writeln('vvesty znachennya');
readln(san);
writeln('vvesty krok');
readln(krok);
writeln('vvesty kilkist ryadkiv');
readln(kil);
writeln;
writeln(line);
writeln('dujm san lin');
writeln(line);
for i:=1 to kil do begin
dujm:=2.54*san;
lin:=dujm/12;
writeln(dujm:7:2, san:7:2, lin:7:2);
san:=san+krok;
end;
writeln(line);
writeln('The work is done by Volodymyr Solchanyk');
readln
end.
Результати
vvesty znachennya
5
vvesty krok
1
vvesty kilkist ryadkiv
6
+++--------++++-----------+++
dujm san lin
+++--------++++-----------+++
12.70 5.00 1.06
15.24 6.00 1.27
17.78 7.00 1.48
20.32 8.00 1.69
22.86 9.00 1.91
25.40 10.00 2.12
+++--------++++-----------+++
The work is done by Volodymyr Solchanyk
Задача №2(6) Цикли. Обчислення скінченних сум і добутків.
Обчислити значення виразу для z. Z=4a+exp(b);
program zav6;
Uses crt;
Var x:integer; a,b,z:real;
begin clrscr;
a:=0;
for x:=24 to 32 do begin
a:=a+abs(sin(x)/3.12+cos(x*x))*8.3*sin(3*x);
writeln('a=',a:10:4);
end;
b:=1;
for x:=24 to 29 do
b:=b*cos(abs(2*x))/1.12-cos(3*x-2)+6.15;
writeln('b=',b:10:4);
z:=4*a+exp(b);
writeln('z=',z:10:4); readln
end.
Результати
a= 1.5885
a= -1.7163
a= 0.8609
a= -5.9106
a= -4.3369
a= -6.8713
a= -5.0131
a= -11.4466
a= -1.9432
b= 8.0366
z= 3084.3790
Задача№3 (7а) Цикли. Обчислення нескінченних сум.
Утворити нескінченно спадну числову послідовність.
k=1,2,…
Обчислити суму цієї послідовності з точністю e=0,001. Скільки потрібно доданків для досягнення заданої точності?
program zav7a;
Uses Crt;
var s,a,k,e:real;
begin clrscr;
s:=0; e:=0.001; k:=1; a:=1/k;
while a>=e do
begin
a:=sin(k)*cos(k*k)*sin(k+1.4)+5.14/k;
s:=s+a;
k:=k+1;
writeln('a=',a:5:2);
end;
writeln('suma=',s:5:2);
writeln('kilkist=',k:3:0);
readln
end.
Результати
a= 5.45
a= 2.72
a= 1.84
a= 0.72
a= 0.92
a= 0.89
a= 0.90
a= 0.65
a= 0.31
a= 0.95
a= 0.46
a= 0.08
a= 0.72
a= 0.47
a= 0.19
a= 0.31
a= 0.72
a= 0.64
a= 0.13
a=-0.01
suma=19.05
kilkist= 21
Задача №4 (8) Цикли. Табулювання функції і пошук даних.
Протабулювати функцію y=(sin(2x-1.5)+3sin(x*x)(+2.38 на проміжку (0;24( з кроком h=0.1*24. Результати обчислень вивести на екран у вигляді таблиці пар чисел x,y.
Обчислити кількість та добуток тих значень функції y, для яких виконуються нерівності 1,3<y<5. Якщо шуканих даних немає, вивести про це повідомлення.
program Zav8;
Uses Crt;
Var x,h,y,k,d:real; i:integer;
begin clrscr;
x:=0; h:=2.4; k:=0; d:=1;
for i:=1 to 24 do begin
y:=abs(sin(2*x-1.5)+3*sin(x*x))+2.38;
if (y>1.3) and (y<5) then begin
k:=k+1; d:=d*y;
end;
x:=x+h;
writeln('x=',x:5:1,' y=',y:5:2);
end;
writeln;
writeln('k=',k:3:0,' d=',d:10:0);
readln
end.
Результати.
x= 2.4 y= 3.38
x= 4.8 y= 4.04
x= 7.2 y= 4.01
x= 9.6 y= 5.71
x= 12.0 y= 5.90
x= 14.4 y= 4.34
x= 16.8 y= 3.25
x= 19.2 y= 3.20
x= 21.6 y= 5.73
x= 24.0 y= 4.62
x= 26.4 y= 4.45
x= 28.8 y= 2.89
x= 31.2 y= 2.64
x= 33.6 y= 4.63
x= 36.0 y= 4.82
x= 38.4 y= 6.35
x= 40.8 y= 5.22
x= 43.2 y= 4.56
x= 45.6 y= 2.70
x= 48.0 y= 2.49
x= 50.4 y= 4.94
x= 52.8 y= 4.39
x= 55.2 y= 5.64
x= 57.6 y= 2.41
k= 18 d=13831453012
Задача №5 (9) Одновимірні масиви.
Нехай прибуток фірми за k-тий рік обчислюється за формулою y[k]=100(cos(x*x)*sin(2x-1)+4.29) умовних один...
